library("doRedis")

registerDoRedis("jobs")
startLocalWorkers(n=5, queue="jobs")

set.seed.worker <- function(n) set.seed(55)
foreach(j=1:5, .combine="c", .export="set.seed.worker") %dopar% runif(1)
#foreach(j=1:5, .combine="c") %dopar% runif(1)

removeQueue("jobs")
